home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-09-01 | 1.5 KB | 72 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="4"
- "COUNT"="5"
- "UIPATH 1"="System\File System\Folders\System"
- "NAME"="Windows Install Locations"
- "OSVERSION"="10101"
- "VERSION"="1.11"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Install 1"
- "TEXT 2"="Install 2"
- "TEXT 3"="Install 3"
- "TEXT 4"="Install 4"
- "TEXT 5"="Install 5"
- "DESCRIPTION 1"="For Win9x/ME: To change the locations Windows looks for when installing new hardware, browse to location of choice."
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com"
-
- sPath="HKCU\InstallLocationsMRU\"
- v1="a\"
- v2="b\"
- v3="c\"
- v4="d\"
- v5="e\"
-
- Sub Plugin_Initialize
- if RegPathExists(sPath) then
- s=RegReadValue(sPath & v1)
- SetUIElement 1,s
-
- s=RegReadValue(sPath & v2)
- SetUIElement 2,s
-
- s=RegReadValue(sPath & v3)
- SetUIElement 3,s
-
- s=RegReadValue(sPath & v4)
- SetUIElement 4,s
-
- s=RegReadValue(sPath & v5)
- SetUIElement 5,s
- else
- Call Disable()
- end if
-
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- s=GetUIElement(1)
- Call RegWriteValue(sPath & v1,s,1)
-
- s=GetUIElement(2)
- Call RegWriteValue(sPath & v2,s,1)
-
- s=GetUIElement(3)
- Call RegWriteValue(sPath & v3,s,1)
-
- s=GetUIElement(4)
- Call RegWriteValue(sPath & v4,s,1)
-
- s=GetUIElement(5)
- Call RegWriteValue(sPath & v5,s,1)
-
- End Sub
-
- Sub Plugin_Terminate
- End Sub
-